00100		TITLE GANG
00200	
00300	; CALL D2A(FROM,SIZE)
00400	; CALL SPEED(SPEED,NCHNS)
00420	
00440		ENTRY D2A
00460		ENTRY SPEED
00500	
00600	DAC=17
00800	
00900	D2A:	JUMP	0
01100		INIT	DAC,17
01200		SIXBIT 	.AD.
01300		Z
01400		JRST	.-3
01500		MOVN 	0,@1(16)
01600		HRLM	0,OUT
01700		MOVE	0,0(16)
01800		SUBI	0,1
01900		HRRM	0,OUT
02000		OUTPUT	DAC,OUT
02100		RELEASE DAC,0
02150		JRA	16,2(16)
02200	OUT:	Z
02300		3650	;CONO 204,3650
02400		4030	; "   424,4010
02500		Z
02600		Z
02700	SPEED:	0
02800		MOVE	@(16)
02900		DPB	[POINT 3,OUT+2,32]
03000		MOVE	@1(16)
03100		SUBI	1
03200		DPB	[POINT 2,OUT+2,26]
03300		JRA	16,2(16)
03400		END